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I I INPUT I ILALR I I LISTS || CHAIN 
I JTABLEl 

id 

num 

Inum 

sr 

char 



INTEGER 

CARDINAL 

CHARACTER 

BOOLEAN 

STRING 

UNSPECIFIED 

MOD 

DESCRIPTOR 

BASE 

LENGTH 

SIZE 

MEMORY 

) 

] 

( 

c 

EOF 
IITABLE2 

goal 

typespec 

typeid 

typeconstruct 

stmt! ist 

stmt 

exp 

sum 

addop 

product 

mul top 

factor 

primary 

buil tincall 

typeop 

Ihs 

qua! if ier 

interval 

expl ist 
I ITABLE3 

goal : :»0 stmtl ist 

stmtl ist : :=»1 stmt 

I 2 stmtl ist ; stmt 
stmt ::"3 exp 

|4 Ihs *- exp 
exp : :"5 sum 

sum : :-20 product 

|21 sum addop product 
addop ::«22 + 

|23 
product ::-24 factor 
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|25 


product multop factor 


muHop 


::"26 


* 




|27 


/ 




|28 


MOD 


factor 


::«30 


primary 




|31 


- primary 


primary 


::«40 


Ihs 




|41 


( exp ) 




|43 


builtincall 




|44 


Ihs 


builtincall 


: :-50 


LENGTH [ Ihs ] 




151 


BASE [ Ihs ] 




152 


DESCRIPTOR [ exp ] 




|53 


DESCRIPTOR [ exp . exp ] 




|54 


typeop [ typespec ] 


typeop 


::«65 


SIZE 


Ihs 


: :»71 


id 




172 


num 




|73 


Inum 




|74 


char 




|75 


sr 




|76 


( exp ) qualifier 




|77 


Ihs qualifier 




|80 


MEMORY [ interval ] 




|81 


MEMORY [ exp ] 




|83 


id $ id 




|84 


num $ id 


qua! if ier 


: :«90 


. id 




|91 


t 




|92 


% 




|93 


% typespec 




|94 


[ explist ] 




|95 


[ interval ] 


typespec 




::al05 typeid 




|107 


typeconstruct 


typeid 


: :=110 


INTEGER 




111 


CARDINAL 




112 


CHARACTER 




113 


BOOLEAN 




114 


STRING 




115 


UNSPECIFIED 




116 


id $ id 




119 


id 




120 


id typeid 


typeconstruct 


; :«125 


@ typespec 


expl ist 


::=140 


exp 




|141 


explist , exp 




|142 




interval 




: :«143 exp . . exp 




|144 


exp 1 exp 
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